inherited sprServices: TsprServices
  Left = 292
  Top = 207
  Width = 937
  Height = 635
  HelpContext = 1151
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1091#1089#1083#1091#1075', '#1090#1072#1088#1080#1092#1086#1074' '#1080' '#1085#1086#1088#1084
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter [0]
    Left = 0
    Top = 181
    Width = 929
    Height = 5
    Cursor = crVSplit
    Align = alTop
    Beveled = True
    MinSize = 130
  end
  inherited pStatusBar: TStatusBar
    Top = 608
    Width = 929
    Height = 0
  end
  inherited ToolBar1: TToolBar
    Top = 186
    Width = 929
    inherited ToolButton10: TToolButton
      Visible = False
    end
    inherited ToolButton11: TToolButton
      Visible = False
    end
  end
  inherited Panel2: TPanel
    Top = 211
    Width = 929
    Height = 397
    Constraints.MinHeight = 100
    inherited PageControl1: TPageControl
      Width = 929
      Height = 397
      Constraints.MinHeight = 280
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Width = 921
          Height = 369
          Caption = ' '#1059#1089#1083#1091#1075#1080' '
          inherited dbgRefer: TDBGridEh
            Width = 917
            Height = 352
            Font.Style = [fsBold]
            FooterFont.Style = [fsBold]
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete]
            ParentFont = False
            TitleFont.Style = [fsBold]
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
              end
              item
                EditButtons = <>
                FieldName = 'GROUP_ID'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'PROC_ID'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'G_CODE'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'G_SUBCODE'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'M_CODE'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'M_SUBCODE'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'NAME'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Width = 194
              end
              item
                EditButtons = <>
                FieldName = 'SHORT_NAME'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Width = 161
              end
              item
                EditButtons = <>
                FieldName = 'CALCTYPE'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'UNIT'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Width = 48
              end
              item
                EditButtons = <>
                FieldName = 'CREATOR'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
                Width = 58
              end
              item
                EditButtons = <>
                FieldName = 'CREATEDATE'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'MODIFIER'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
                Width = 66
              end
              item
                EditButtons = <>
                FieldName = 'MODIFYDATE'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'CALCNAME'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Footers = <>
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Width = 62
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Top = 0
          Width = 921
          Height = 369
          Align = alClient
          Caption = ' '#1059#1089#1083#1091#1075#1072' '
          ParentFont = False
          object Splitter1: TSplitter [0]
            Left = 467
            Top = 15
            Height = 324
            Beveled = True
            MinSize = 460
          end
          inherited pnlButtons: TPanel
            Top = 339
            Width = 917
            Height = 28
            OnClick = pnlButtonsClick
            DesignSize = (
              917
              28)
            inherited SpeedButton1: TSpeedButton
              Left = 716
              Top = 2
            end
            inherited SpeedButton2: TSpeedButton
              Left = 816
              Top = 2
            end
          end
          object Panel1: TPanel
            Left = 2
            Top = 15
            Width = 465
            Height = 324
            Align = alLeft
            BevelOuter = bvNone
            Caption = 'Panel1'
            TabOrder = 1
            object Panel3: TPanel
              Left = 0
              Top = 0
              Width = 465
              Height = 125
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 0
              object Label2: TLabel
                Left = 82
                Top = 3
                Width = 17
                Height = 13
                Alignment = taRightJustify
                Caption = #1048#1044
              end
              object Label3: TLabel
                Left = 49
                Top = 22
                Width = 50
                Height = 13
                Alignment = taRightJustify
                Caption = #1053#1072#1079#1074#1072#1085#1080#1077
              end
              object Label4: TLabel
                Left = 24
                Top = 42
                Width = 75
                Height = 13
                Alignment = taRightJustify
                Caption = #1050#1086#1088#1086#1090#1082#1086#1077' '#1085#1072#1079#1074
              end
              object Label5: TLabel
                Left = 260
                Top = 2
                Width = 19
                Height = 13
                Alignment = taRightJustify
                Caption = #1050#1086#1076
              end
              object Label8: TLabel
                Left = 199
                Top = 62
                Width = 80
                Height = 13
                Alignment = taRightJustify
                Caption = #1050#1086#1076' '#1089#1086#1094#1079#1072#1097#1080#1090#1099
              end
              object Label6: TLabel
                Left = 16
                Top = 82
                Width = 83
                Height = 13
                Alignment = taRightJustify
                Caption = #1056#1072#1089#1095'. '#1087#1088#1086#1094#1077#1076#1091#1088#1072
              end
              object Label7: TLabel
                Left = 24
                Top = 102
                Width = 75
                Height = 13
                Alignment = taRightJustify
                Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1090#1080#1087
              end
              object Label9: TLabel
                Left = 27
                Top = 62
                Width = 72
                Height = 13
                Alignment = taRightJustify
                Caption = #1045#1076'.'#1080#1079#1084#1077#1088#1077#1085#1080#1103
              end
              object dbeName: TDBEditEh
                Left = 106
                Top = 20
                Width = 249
                Height = 19
                AlwaysShowBorder = True
                DataField = 'NAME'
                DataSource = dscRefer
                EditButtons = <>
                Flat = True
                TabOrder = 0
                Visible = True
              end
              object dbeShortName: TDBEditEh
                Left = 106
                Top = 40
                Width = 249
                Height = 19
                AlwaysShowBorder = True
                DataField = 'SHORT_NAME'
                DataSource = dscRefer
                EditButtons = <>
                Flat = True
                TabOrder = 1
                Visible = True
              end
              object DBEditEh3: TDBEditEh
                Left = 106
                Top = 0
                Width = 69
                Height = 19
                AlwaysShowBorder = True
                Color = clInactiveCaptionText
                DataField = 'ID'
                DataSource = dscRefer
                EditButtons = <>
                Enabled = False
                Flat = True
                ReadOnly = True
                TabOrder = 2
                Visible = True
              end
              object DBEditEh4: TDBEditEh
                Left = 286
                Top = 0
                Width = 69
                Height = 19
                AlwaysShowBorder = True
                DataField = 'G_CODE'
                DataSource = dscRefer
                EditButtons = <>
                Flat = True
                TabOrder = 3
                Visible = True
              end
              object DBEditEh7: TDBEditEh
                Left = 286
                Top = 60
                Width = 69
                Height = 19
                AlwaysShowBorder = True
                DataField = 'G_SUBCODE'
                DataSource = dscRefer
                EditButtons = <>
                Flat = True
                TabOrder = 4
                Visible = True
              end
              object dblProc_id: TDBLookupComboboxEh
                Left = 106
                Top = 80
                Width = 249
                Height = 19
                AlwaysShowBorder = True
                DataField = 'PROC_ID'
                DataSource = dscRefer
                DropDownBox.Sizable = True
                EditButtons = <>
                Flat = True
                KeyField = 'ID'
                ListField = 'NAME'
                ListSource = dscProcList
                TabOrder = 5
                Visible = True
              end
              object dblCalctype: TDBComboBoxEh
                Left = 106
                Top = 100
                Width = 121
                Height = 19
                AlwaysShowBorder = True
                DataField = 'CALCTYPE'
                DataSource = dscRefer
                EditButtons = <>
                Flat = True
                Items.Strings = (
                  #1086#1073#1097#1080#1081' '#1091#1095#1077#1090
                  #1087#1086' '#1076#1086#1075#1086#1074#1086#1088#1091
                  #1089#1090#1086#1082#1086#1074#1072#1103)
                KeyItems.Strings = (
                  '0'
                  '3'
                  '4')
                TabOrder = 6
                Visible = True
              end
              object dbeUnit: TDBEditEh
                Left = 106
                Top = 60
                Width = 69
                Height = 19
                AlwaysShowBorder = True
                DataField = 'UNIT'
                DataSource = dscRefer
                EditButtons = <>
                Flat = True
                TabOrder = 7
                Visible = True
              end
            end
            object pcTariffNorms: TPageControl
              Left = 0
              Top = 125
              Width = 465
              Height = 199
              ActivePage = TabSheet1
              Align = alClient
              Style = tsFlatButtons
              TabOrder = 1
              OnChange = pcTariffNormsChange
              object TabSheet1: TTabSheet
                Caption = #1058#1072#1088#1080#1092#1099' '#1080' '#1085#1086#1088#1084#1099
                object PageControl2: TPageControl
                  Left = 0
                  Top = 0
                  Width = 457
                  Height = 168
                  ActivePage = TabSheet3
                  Align = alClient
                  Style = tsFlatButtons
                  TabOrder = 0
                  object TabSheet2: TTabSheet
                    Caption = #1058#1072#1088#1080#1092#1099
                    object Panel9: TPanel
                      Left = 0
                      Top = 0
                      Width = 449
                      Height = 137
                      Align = alClient
                      BevelOuter = bvNone
                      Font.Charset = DEFAULT_CHARSET
                      Font.Color = clWindowText
                      Font.Height = -11
                      Font.Name = 'MS Sans Serif'
                      Font.Style = []
                      ParentFont = False
                      TabOrder = 0
                      object ToolBar2: TToolBar
                        Left = 0
                        Top = 0
                        Width = 24
                        Height = 137
                        Align = alLeft
                        ButtonHeight = 23
                        Caption = 'ToolBar2'
                        EdgeBorders = []
                        Flat = True
                        Images = MAIN.ImageList
                        TabOrder = 0
                        object ToolButton12: TToolButton
                          Left = 0
                          Top = 0
                          Action = aInsertTariff
                          Wrap = True
                        end
                        object ToolButton13: TToolButton
                          Left = 0
                          Top = 23
                          Action = aEditTariff
                          Wrap = True
                        end
                        object ToolButton14: TToolButton
                          Left = 0
                          Top = 46
                          Action = aDelTariff
                        end
                      end
                      object dbgTariffDates: TDBGridEh
                        Left = 24
                        Top = 0
                        Width = 425
                        Height = 137
                        Align = alClient
                        AllowedOperations = []
                        AllowedSelections = []
                        DataGrouping.GroupLevels = <>
                        DataSource = dscTariffDates
                        DrawMemoText = True
                        Flat = True
                        FooterColor = clWindow
                        FooterFont.Charset = DEFAULT_CHARSET
                        FooterFont.Color = clWindowText
                        FooterFont.Height = -11
                        FooterFont.Name = 'MS Sans Serif'
                        FooterFont.Style = []
                        HorzScrollBar.Visible = False
                        OddRowColor = clWindow
                        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                        ReadOnly = True
                        RowDetailPanel.Active = True
                        RowDetailPanel.Height = 95
                        RowDetailPanel.ActiveControl = dbgTariffs
                        RowDetailPanel.Color = clBtnFace
                        TabOrder = 1
                        TitleFont.Charset = DEFAULT_CHARSET
                        TitleFont.Color = clWindowText
                        TitleFont.Height = -11
                        TitleFont.Name = 'MS Sans Serif'
                        TitleFont.Style = []
                        TitleLines = 2
                        UseMultiTitle = True
                        VTitleMargin = 5
                        OnDblClick = aEditTariffExecute
                        Columns = <
                          item
                            EditButtons = <>
                            FieldName = 'BDATE'
                            Footers = <>
                            Width = 177
                          end
                          item
                            EditButtons = <>
                            FieldName = 'TARIFFS'
                            Footers = <>
                            Width = 241
                          end>
                        object RowDetailData: TRowDetailPanelControlEh
                          object dbgTariffs: TDBGridEh
                            Left = 0
                            Top = 0
                            Width = 399
                            Height = 93
                            Align = alClient
                            AllowedOperations = []
                            AllowedSelections = []
                            Color = clInactiveCaptionText
                            DataGrouping.GroupLevels = <>
                            DataSource = dscTariffM
                            Flat = True
                            FooterColor = clWindow
                            FooterFont.Charset = DEFAULT_CHARSET
                            FooterFont.Color = clWindowText
                            FooterFont.Height = -11
                            FooterFont.Name = 'MS Sans Serif'
                            FooterFont.Style = []
                            OddRowColor = clInactiveCaptionText
                            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
                            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                            PopupMenu = pmTariffs
                            ReadOnly = True
                            RowDetailPanel.Color = clBtnFace
                            TabOrder = 0
                            TitleFont.Charset = DEFAULT_CHARSET
                            TitleFont.Color = clWindowText
                            TitleFont.Height = -11
                            TitleFont.Name = 'MS Sans Serif'
                            TitleFont.Style = []
                            TitleLines = 2
                            UseMultiTitle = True
                            VertScrollBar.VisibleMode = sbNeverShowEh
                            VTitleMargin = 5
                            Columns = <
                              item
                                EditButtons = <>
                                FieldName = 'ID'
                                Footers = <>
                                Visible = False
                              end
                              item
                                EditButtons = <>
                                FieldName = 'TARIFF'
                                Footers = <>
                                Width = 132
                              end
                              item
                                EditButtons = <>
                                FieldName = 'CREATEUSER'
                                Footers = <>
                              end
                              item
                                EditButtons = <>
                                FieldName = 'CREATEDATE'
                                Footers = <>
                              end
                              item
                                EditButtons = <>
                                FieldName = 'MODIFYUSER'
                                Footers = <>
                              end
                              item
                                EditButtons = <>
                                FieldName = 'MODIFYDATE'
                                Footers = <>
                              end>
                            object RowDetailData: TRowDetailPanelControlEh
                            end
                          end
                        end
                      end
                    end
                  end
                  object TabSheet3: TTabSheet
                    Caption = #1053#1086#1088#1084#1099
                    ImageIndex = 1
                    object Panel4: TPanel
                      Left = 0
                      Top = 0
                      Width = 449
                      Height = 137
                      Align = alClient
                      BevelOuter = bvNone
                      Font.Charset = DEFAULT_CHARSET
                      Font.Color = clWindowText
                      Font.Height = -11
                      Font.Name = 'MS Sans Serif'
                      Font.Style = []
                      ParentFont = False
                      TabOrder = 0
                      object ToolBar3: TToolBar
                        Left = 0
                        Top = 0
                        Width = 24
                        Height = 137
                        Align = alLeft
                        ButtonHeight = 23
                        Caption = 'ToolBar2'
                        EdgeBorders = []
                        Flat = True
                        Images = MAIN.ImageList
                        TabOrder = 0
                        object ToolButton15: TToolButton
                          Left = 0
                          Top = 0
                          Action = aInsertNorm
                          Wrap = True
                        end
                        object ToolButton16: TToolButton
                          Left = 0
                          Top = 23
                          Action = aEditNorm
                          Wrap = True
                        end
                        object ToolButton17: TToolButton
                          Left = 0
                          Top = 46
                          Action = aDelNorm
                        end
                      end
                      object DBGridEh5: TDBGridEh
                        Left = 24
                        Top = 0
                        Width = 425
                        Height = 137
                        Align = alClient
                        AllowedOperations = []
                        DataGrouping.GroupLevels = <>
                        DataSource = dscNormDates
                        DrawMemoText = True
                        Flat = True
                        FooterColor = clWindow
                        FooterFont.Charset = DEFAULT_CHARSET
                        FooterFont.Color = clWindowText
                        FooterFont.Height = -11
                        FooterFont.Name = 'MS Sans Serif'
                        FooterFont.Style = []
                        HorzScrollBar.Visible = False
                        OddRowColor = clWindow
                        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                        ReadOnly = True
                        RowDetailPanel.Active = True
                        RowDetailPanel.Height = 95
                        RowDetailPanel.ActiveControl = DBGridEh3
                        RowDetailPanel.Color = clBtnFace
                        TabOrder = 1
                        TitleFont.Charset = DEFAULT_CHARSET
                        TitleFont.Color = clWindowText
                        TitleFont.Height = -11
                        TitleFont.Name = 'MS Sans Serif'
                        TitleFont.Style = []
                        TitleLines = 2
                        UseMultiTitle = True
                        VTitleMargin = 5
                        OnDblClick = aEditNormExecute
                        Columns = <
                          item
                            EditButtons = <>
                            FieldName = 'BDATE'
                            Footers = <>
                            Width = 202
                          end
                          item
                            EditButtons = <>
                            FieldName = 'NORMS'
                            Footers = <>
                            Width = 219
                          end>
                        object RowDetailData: TRowDetailPanelControlEh
                          object DBGridEh3: TDBGridEh
                            Left = 0
                            Top = 0
                            Width = 402
                            Height = 93
                            Align = alClient
                            AllowedOperations = []
                            Color = clInactiveCaptionText
                            DataGrouping.GroupLevels = <>
                            DataSource = dscNormM
                            Flat = True
                            FooterColor = clWindow
                            FooterFont.Charset = DEFAULT_CHARSET
                            FooterFont.Color = clWindowText
                            FooterFont.Height = -11
                            FooterFont.Name = 'MS Sans Serif'
                            FooterFont.Style = []
                            OddRowColor = clInactiveCaptionText
                            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
                            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                            PopupMenu = pmNorms
                            ReadOnly = True
                            RowDetailPanel.Color = clBtnFace
                            TabOrder = 0
                            TitleFont.Charset = DEFAULT_CHARSET
                            TitleFont.Color = clWindowText
                            TitleFont.Height = -11
                            TitleFont.Name = 'MS Sans Serif'
                            TitleFont.Style = []
                            TitleLines = 2
                            UseMultiTitle = True
                            VertScrollBar.VisibleMode = sbNeverShowEh
                            VTitleMargin = 5
                            Columns = <
                              item
                                EditButtons = <>
                                FieldName = 'ID'
                                Footers = <>
                                Visible = False
                              end
                              item
                                EditButtons = <>
                                FieldName = 'NORM'
                                Footers = <>
                                Width = 131
                              end
                              item
                                EditButtons = <>
                                FieldName = 'CREATEUSER'
                                Footers = <>
                              end
                              item
                                EditButtons = <>
                                FieldName = 'CREATEDATE'
                                Footers = <>
                              end
                              item
                                EditButtons = <>
                                FieldName = 'MODIFYUSER'
                                Footers = <>
                              end
                              item
                                EditButtons = <>
                                FieldName = 'MODIFYDATE'
                                Footers = <>
                              end>
                            object RowDetailData: TRowDetailPanelControlEh
                            end
                          end
                        end
                      end
                    end
                  end
                end
              end
              object tsStoki: TTabSheet
                Caption = #1057#1090#1086#1082#1080
                ImageIndex = 1
                object ToolBar4: TToolBar
                  Left = 0
                  Top = 0
                  Width = 457
                  Height = 25
                  ButtonHeight = 23
                  Caption = 'ToolBar2'
                  EdgeBorders = []
                  Flat = True
                  Images = MAIN.ImageList
                  TabOrder = 0
                  object ToolButton18: TToolButton
                    Left = 0
                    Top = 0
                    Action = aNewStoki
                  end
                  object ToolButton20: TToolButton
                    Left = 23
                    Top = 0
                    Action = aDelStoki
                  end
                end
                object dbgDestination: TDBGridEh
                  Left = 0
                  Top = 25
                  Width = 457
                  Height = 143
                  Align = alClient
                  DataGrouping.GroupLevels = <>
                  DataSource = dscStoki
                  Flat = True
                  FooterColor = clWindow
                  FooterFont.Charset = DEFAULT_CHARSET
                  FooterFont.Color = clWindowText
                  FooterFont.Height = -11
                  FooterFont.Name = 'MS Sans Serif'
                  FooterFont.Style = []
                  Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete]
                  OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                  RowDetailPanel.Color = clBtnFace
                  TabOrder = 1
                  TitleFont.Charset = DEFAULT_CHARSET
                  TitleFont.Color = clWindowText
                  TitleFont.Height = -11
                  TitleFont.Name = 'MS Sans Serif'
                  TitleFont.Style = []
                  UseMultiTitle = True
                  VTitleMargin = 5
                  Columns = <
                    item
                      EditButtons = <>
                      FieldName = 'ID'
                      Footers = <>
                      Visible = False
                    end
                    item
                      EditButtons = <>
                      FieldName = 'DST'
                      Footers = <>
                      Width = 191
                    end
                    item
                      EditButtons = <>
                      FieldName = 'SUPP_SRC'
                      Footers = <>
                      Width = 123
                    end
                    item
                      EditButtons = <>
                      FieldName = 'SUPP_DST'
                      Footers = <>
                      Width = 132
                    end
                    item
                      EditButtons = <>
                      FieldName = 'REDUCT_KOEF'
                      Footers = <>
                    end>
                  object RowDetailData: TRowDetailPanelControlEh
                  end
                end
              end
              object tsTraits: TTabSheet
                Caption = #1055#1088#1080#1079#1085#1072#1082#1080
                ImageIndex = 2
                object ToolBar6: TToolBar
                  Left = 0
                  Top = 0
                  Width = 457
                  Height = 23
                  ButtonHeight = 23
                  Caption = 'ToolBar2'
                  EdgeBorders = []
                  Flat = True
                  Images = MAIN.ImageList
                  TabOrder = 0
                  object ToolButton31: TToolButton
                    Left = 0
                    Top = 0
                    Action = aTraitAdd
                  end
                  object ToolButton32: TToolButton
                    Left = 23
                    Top = 0
                    Action = aTraitEdit
                  end
                  object ToolButton34: TToolButton
                    Left = 46
                    Top = 0
                    Width = 8
                    Caption = 'ToolButton34'
                    ImageIndex = 3
                    Style = tbsSeparator
                  end
                  object ToolButton33: TToolButton
                    Left = 54
                    Top = 0
                    Action = aTraitDel
                  end
                end
                object dbgSrvTraits: TDBGridEh
                  Left = 0
                  Top = 23
                  Width = 457
                  Height = 145
                  Align = alClient
                  DataGrouping.GroupLevels = <>
                  DataSource = dscServiceTraits
                  Flat = True
                  FooterColor = clWindow
                  FooterFont.Charset = DEFAULT_CHARSET
                  FooterFont.Color = clWindowText
                  FooterFont.Height = -11
                  FooterFont.Name = 'MS Sans Serif'
                  FooterFont.Style = []
                  Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                  RowDetailPanel.Color = clBtnFace
                  TabOrder = 1
                  TitleFont.Charset = DEFAULT_CHARSET
                  TitleFont.Color = clWindowText
                  TitleFont.Height = -11
                  TitleFont.Name = 'MS Sans Serif'
                  TitleFont.Style = []
                  UseMultiTitle = True
                  VTitleMargin = 5
                  OnDblClick = aTraitEditExecute
                  Columns = <
                    item
                      EditButtons = <>
                      FieldName = 'ID'
                      Footers = <>
                      Visible = False
                    end
                    item
                      EditButtons = <>
                      FieldName = 'TRAIT_ID'
                      Footers = <>
                      Visible = False
                    end
                    item
                      EditButtons = <>
                      FieldName = 'SERVICE_ID'
                      Footers = <>
                      Visible = False
                    end
                    item
                      EditButtons = <>
                      FieldName = 'TRAITNAME'
                      Footers = <>
                      Width = 200
                    end
                    item
                      EditButtons = <>
                      FieldName = 'BDATE'
                      Footers = <>
                    end
                    item
                      EditButtons = <>
                      FieldName = 'EDATE'
                      Footers = <>
                    end>
                  object RowDetailData: TRowDetailPanelControlEh
                  end
                end
              end
            end
          end
          object GroupBox5: TGroupBox
            Left = 470
            Top = 15
            Width = 449
            Height = 324
            Align = alClient
            Caption = ' '#1055#1086#1089#1090#1072#1074#1097#1080#1082#1080' '
            TabOrder = 2
            object dbgSuppliers: TDBGridEh
              Left = 2
              Top = 38
              Width = 445
              Height = 284
              Align = alClient
              DataGrouping.GroupLevels = <>
              DataSource = dscFilterOrgs
              Flat = True
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              RowDetailPanel.Color = clBtnFace
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              UseMultiTitle = True
              VTitleMargin = 5
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ID'
                  Footers = <>
                  Visible = False
                end
                item
                  EditButtons = <>
                  FieldName = 'NAME'
                  Footers = <>
                  Width = 308
                end>
              object RowDetailData: TRowDetailPanelControlEh
              end
            end
            object Panel5: TPanel
              Left = 2
              Top = 15
              Width = 445
              Height = 23
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 1
              object cbSuppWithTariffs: TDBCheckBoxEh
                Left = 10
                Top = 1
                Width = 231
                Height = 17
                AlwaysShowBorder = True
                Caption = #1058#1086#1083#1100#1082#1086' '#1089' '#1090#1072#1088#1080#1092#1072#1084#1080' '#1087#1086' '#1091#1089#1083#1091#1075#1077
                Checked = True
                Flat = True
                State = cbChecked
                TabOrder = 0
                ValueChecked = 'True'
                ValueUnchecked = 'False'
                OnClick = cbSuppWithTariffsClick
              end
            end
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Width = 929
    Height = 156
    Caption = ' '#1043#1088#1091#1087#1087#1099' '#1091#1089#1083#1091#1075' '
    Constraints.MinHeight = 100
    Font.Style = []
    ParentColor = False
    object Splitter3: TSplitter
      Left = 569
      Top = 15
      Height = 139
      MinSize = 350
    end
    object dbgGroups: TDBGridEh
      Left = 2
      Top = 15
      Width = 567
      Height = 139
      Align = alLeft
      AllowedOperations = []
      ColumnDefValues.Title.TitleButton = True
      DataGrouping.GroupLevels = <>
      DataSource = dscGroups
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = [fsBold]
      IndicatorTitle.TitleButton = True
      OddRowColor = clMoneyGreen
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
      ParentFont = False
      RowDetailPanel.Color = clBtnFace
      SortLocal = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UseMultiTitle = True
      VTitleMargin = 5
      OnDblClick = aGroupEditExecute
      OnSortMarkingChanged = dbgReferSortMarkingChanged
      Columns = <
        item
          EditButtons = <>
          FieldName = 'ID'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'G_CODE'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'G_SUBCODE'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'M_CODE'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'M_SUBCODE'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'NAME'
          Footers = <>
          Width = 275
        end
        item
          EditButtons = <>
          FieldName = 'SHORT_NAME'
          Footers = <>
          Width = 268
        end>
      object RowDetailData: TRowDetailPanelControlEh
      end
    end
    object GroupBox4: TGroupBox
      Left = 572
      Top = 15
      Width = 355
      Height = 139
      Align = alClient
      Caption = ' '#1055#1088#1080#1079#1085#1072#1082#1080' '
      TabOrder = 1
      object dbgGroupTraits: TDBGridEh
        Left = 2
        Top = 38
        Width = 351
        Height = 99
        Align = alClient
        DataGrouping.GroupLevels = <>
        DataSource = dsc_GroupTraits
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = [fsBold]
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete]
        ParentFont = False
        RowDetailPanel.Color = clBtnFace
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        OnDblClick = aTraitEditExecute
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'TRAIT_ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'SERVICE_ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'TRAITNAME'
            Footers = <>
            Width = 200
          end
          item
            EditButtons = <>
            FieldName = 'BDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'EDATE'
            Footers = <>
            Width = 70
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
      object ToolBar7: TToolBar
        Left = 2
        Top = 15
        Width = 351
        Height = 23
        ButtonHeight = 23
        Caption = 'ToolBar2'
        EdgeBorders = []
        Flat = True
        Images = MAIN.ImageList
        TabOrder = 1
        object ToolButton35: TToolButton
          Left = 0
          Top = 0
          Action = aGrpTraitAdd
        end
        object ToolButton36: TToolButton
          Left = 23
          Top = 0
          Action = aGrpTraitEdit
        end
        object ToolButton37: TToolButton
          Left = 46
          Top = 0
          Width = 8
          Caption = 'ToolButton34'
          ImageIndex = 3
          Style = tbsSeparator
        end
        object ToolButton38: TToolButton
          Left = 54
          Top = 0
          Action = aGrpTraitDel
        end
      end
    end
  end
  object ToolBar5: TToolBar [5]
    Left = 0
    Top = 0
    Width = 929
    Height = 25
    ButtonHeight = 23
    ButtonWidth = 24
    Caption = 'ToolBar1'
    Flat = True
    Images = MAIN.ImageList
    TabOrder = 4
    object ToolButton19: TToolButton
      Left = 0
      Top = 0
      Action = aGroupNew
    end
    object ToolButton21: TToolButton
      Left = 24
      Top = 0
      Action = aGroupEdit
    end
    object ToolButton22: TToolButton
      Left = 48
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ToolButton25: TToolButton
      Left = 56
      Top = 0
      Action = aRefresh
    end
    object ToolButton27: TToolButton
      Left = 80
      Top = 0
      Action = aGroupDel
    end
    object ToolButton26: TToolButton
      Left = 104
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 6
      Style = tbsSeparator
      Visible = False
    end
    object ToolButton29: TToolButton
      Left = 112
      Top = 0
      Action = aPrint
    end
    object ToolButton30: TToolButton
      Left = 136
      Top = 0
      Action = aExport
    end
    object ToolButton28: TToolButton
      Left = 160
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 0
      Style = tbsSeparator
    end
  end
  inherited shblActionList: TActionList
    Left = 120
    inherited aInsert: TAction
      Category = 'Service'
    end
    inherited aEdit: TAction
      Category = 'Service'
    end
    inherited aDelete: TAction
      Category = 'Service'
    end
    inherited aPost: TAction
      Category = 'Service'
    end
    inherited aRollback: TAction
      Category = 'Service'
    end
    inherited aRefresh: TAction
      Category = 'Service'
    end
    inherited aPrint: TAction
      Category = 'Service'
    end
    inherited aExport: TAction
      Category = 'Service'
    end
    object aInsertTariff: TAction
      Category = 'Tariff'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1090#1072#1088#1080#1092
      ImageIndex = 9
      OnExecute = aInsertTariffExecute
    end
    object aEditTariff: TAction
      Category = 'Tariff'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1090#1072#1088#1080#1092
      ImageIndex = 5
      OnExecute = aEditTariffExecute
    end
    object aDelTariff: TAction
      Category = 'Tariff'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1090#1072#1088#1080#1092
      ImageIndex = 2
      OnExecute = aDelTariffExecute
    end
    object aInsertNorm: TAction
      Category = 'Norm'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1085#1086#1088#1084#1072#1090#1080#1074
      ImageIndex = 9
      OnExecute = aInsertNormExecute
    end
    object aEditNorm: TAction
      Category = 'Norm'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1085#1086#1088#1084#1072#1090#1080#1074
      ImageIndex = 5
      OnExecute = aEditNormExecute
    end
    object aDelNorm: TAction
      Category = 'Norm'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1085#1086#1088#1084#1072#1090#1080#1074
      ImageIndex = 2
      OnExecute = aDelNormExecute
    end
    object aNewStoki: TAction
      Category = 'Stoki'
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1089#1074#1103#1079#1100' '#1089#1086' '#1089#1090#1086#1082#1086#1074#1086#1081' '#1091#1089#1083#1091#1075#1086#1081
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1089#1074#1103#1079#1100' '#1089#1086' '#1089#1090#1086#1082#1086#1074#1086#1081' '#1091#1089#1083#1091#1075#1086#1081
      ImageIndex = 9
      OnExecute = aNewStokiExecute
    end
    object aDelStoki: TAction
      Category = 'Stoki'
      Caption = #1059#1076#1083#1080#1090#1100' '#1089#1074#1103#1079#1100' '#1089#1086' '#1089#1090#1086#1082#1086#1074#1086#1081' '#1091#1089#1083#1091#1075#1086#1081
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1089#1074#1103#1079#1100' '#1089#1086' '#1089#1090#1086#1082#1086#1074#1086#1081' '#1091#1089#1083#1091#1075#1086#1081
      ImageIndex = 2
      OnExecute = aDelStokiExecute
    end
    object aGroupNew: TAction
      Category = 'Group'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1075#1088#1091#1087#1087#1091' '#1091#1089#1083#1091#1075
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1075#1088#1091#1087#1087#1091' '#1091#1089#1083#1091#1075
      ImageIndex = 9
      OnExecute = aGroupNewExecute
    end
    object aGroupEdit: TAction
      Category = 'Group'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1075#1088#1091#1087#1087#1091' '#1091#1089#1083#1091#1075
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1075#1088#1091#1087#1087#1091' '#1091#1089#1083#1091#1075
      ImageIndex = 5
      OnExecute = aGroupEditExecute
    end
    object aGroupDel: TAction
      Category = 'Group'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1075#1088#1091#1087#1087#1091' '#1091#1089#1083#1091#1075
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1075#1088#1091#1087#1087#1091' '#1091#1089#1083#1091#1075
      ImageIndex = 2
      OnExecute = aGroupDelExecute
    end
    object aTraitAdd: TAction
      Category = 'Traits'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      ImageIndex = 9
      OnExecute = aTraitAddExecute
    end
    object aTraitEdit: TAction
      Category = 'Traits'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      ImageIndex = 5
      OnExecute = aTraitEditExecute
    end
    object aTraitDel: TAction
      Category = 'Traits'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      ImageIndex = 2
      OnExecute = aTraitDelExecute
    end
    object aGrpTraitAdd: TAction
      Category = 'GroupTraits'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      ImageIndex = 9
      OnExecute = aGrpTraitAddExecute
    end
    object aGrpTraitEdit: TAction
      Category = 'GroupTraits'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      ImageIndex = 5
      OnExecute = aGrpTraitEditExecute
    end
    object aGrpTraitDel: TAction
      Category = 'GroupTraits'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      ImageIndex = 2
      OnExecute = aGrpTraitDelExecute
    end
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE SERVICES'
      'SET '
      '    PROC_ID = :PROC_ID,'
      '    G_CODE = :G_CODE,'
      '    G_SUBCODE = :G_SUBCODE,'
      '    NAME = :NAME,'
      '    SHORT_NAME = :SHORT_NAME,'
      '    CALCTYPE = :CALCTYPE,'
      '    UNIT = :UNIT'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SERVICES'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SERVICES('
      '    GROUP_ID,'
      '    PROC_ID,'
      '    G_CODE,'
      '    G_SUBCODE,'
      '    NAME,'
      '    SHORT_NAME,'
      '    CALCTYPE,'
      '    UNIT'
      ')'
      'VALUES('
      '    :GROUP_ID,'
      '    :PROC_ID,'
      '    :G_CODE,'
      '    :G_SUBCODE,'
      '    :NAME,'
      '    :SHORT_NAME,'
      '    :CALCTYPE,'
      '    :UNIT'
      ')')
    RefreshSQL.Strings = (
      
        'select s.id, s.group_id, s.proc_id, s.g_code, s.g_subcode, s.m_c' +
        'ode, s.m_subcode,'
      
        's.name, s.short_name, s.calctype, s.unit, s.createdate, s.modify' +
        'date,'
      'u1.surname as creator, u2.surname as modifier ,'
      
        'cast((case when s.group_id > 0 then (case when s.calctype = 3 th' +
        'en '#39#1055#1086' '#1076#1086#1075#1086#1074#1086#1088#1091#39' else'
      '  (case when s.calctype = 4 then '#39#1057#1090#1086#1082#1086#1074#1072#1103#39' else '#39#1054#1073#1097#1080#1081' '#1091#1095#1077#1090#39
      '  end) end) else '#39#39' end) as varchar(15)) as calcname'
      'from services s'
      ' left join username u1 on u1.id = s.createuserid'
      ' left join username u2 on u2.id = s.modifyuserid'
      'where(  1 = 1'
      '     ) and (     S.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      
        'select s.id, s.group_id, s.proc_id, s.g_code, s.g_subcode, s.m_c' +
        'ode, s.m_subcode,'
      
        's.name, s.short_name, s.calctype, s.unit, s.createdate, s.modify' +
        'date,'
      'u1.surname as creator, u2.surname as modifier ,'
      
        'cast((case when s.group_id > 0 then (case when s.calctype = 3 th' +
        'en '#39#1055#1086' '#1076#1086#1075#1086#1074#1086#1088#1091#39' else'
      '  (case when s.calctype = 4 then '#39#1057#1090#1086#1082#1086#1074#1072#1103#39' else '#39#1054#1073#1097#1080#1081' '#1091#1095#1077#1090#39
      '  end) end) else '#39#39' end) as varchar(15)) as calcname'
      'from services s'
      ' left join username u1 on u1.id = s.createuserid'
      ' left join username u2 on u2.id = s.modifyuserid'
      'where 1 = 1'
      'AND s.group_id = :id')
    AfterPost = dsReferAfterPost
    AfterScroll = dsReferAfterScroll
    UpdateTransaction = trRefer
    DataSource = dscGroups
    Left = 486
    Top = 136
    WaitEndMasterScroll = True
    dcForceOpen = True
    object dsReferID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsReferGROUP_ID: TFIBIntegerField
      FieldName = 'GROUP_ID'
      Visible = False
    end
    object dsReferPROC_ID: TFIBIntegerField
      FieldName = 'PROC_ID'
      Visible = False
    end
    object dsReferG_CODE: TFIBIntegerField
      FieldName = 'G_CODE'
      Visible = False
    end
    object dsReferG_SUBCODE: TFIBIntegerField
      FieldName = 'G_SUBCODE'
      Visible = False
    end
    object dsReferM_CODE: TFIBSmallIntField
      FieldName = 'M_CODE'
      Visible = False
    end
    object dsReferM_SUBCODE: TFIBSmallIntField
      FieldName = 'M_SUBCODE'
      Visible = False
    end
    object dsReferNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferSHORT_NAME: TFIBStringField
      DisplayLabel = #1050#1086#1088#1086#1090#1082'.'#1085#1072#1079#1074'.'
      FieldName = 'SHORT_NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object dsReferCALCTYPE: TFIBSmallIntField
      FieldName = 'CALCTYPE'
      Visible = False
    end
    object dsReferUNIT: TFIBStringField
      DisplayLabel = #1045#1076'.'#1080#1079#1084'.'
      FieldName = 'UNIT'
      EmptyStrToNull = True
    end
    object dsReferCREATOR: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1083
      FieldName = 'CREATOR'
      Size = 35
      EmptyStrToNull = True
    end
    object dsReferCREATEDATE: TFIBDateField
      DefaultExpression = 'today'
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object dsReferMODIFIER: TFIBStringField
      DisplayLabel = #1048#1079#1084#1077#1085#1080#1083
      FieldName = 'MODIFIER'
      Size = 35
      EmptyStrToNull = True
    end
    object dsReferMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'MODIFYDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object dsReferCALCNAME: TFIBStringField
      DisplayLabel = #1056#1072#1089#1095'.'#1090#1080#1087
      FieldName = 'CALCNAME'
      Size = 15
      EmptyStrToNull = True
    end
  end
  inherited dscRefer: TDataSource
    Left = 514
    Top = 136
  end
  inherited Timer1: TTimer
    Left = 720
    Top = 81
  end
  inherited trRefer: TpFIBTransaction
    TRParams.Strings = (
      'write'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 484
    Top = 106
  end
  inherited trLists: TpFIBTransaction
    Left = 578
    Top = 79
  end
  object dsFilterOrgs: TpFIBDataSet [12]
    SelectSQL.Strings = (
      'select vs.id, vs.name from V_SUPPLIER vs'
      'where coalesce(:pservice_id, 0) = 0'
      '   or exists(select 1 from rtariffs rt '
      '      where rt.supplier_id = vs.id '
      '        and rt.service_id = :pservice_id)'
      'order by 2')
    AfterScroll = dsFilterOrgsAfterScroll
    BeforeOpen = dsFilterOrgsBeforeOpen
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    Left = 650
    Top = 79
    object dsFilterOrgsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsFilterOrgsNAME: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082' '#1091#1089#1083#1091#1075
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dscFilterOrgs: TDataSource [13]
    DataSet = dsFilterOrgs
    Left = 682
    Top = 79
  end
  inherited PropStorage: TPropStorageEh
    Section = 'sprServices'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'GroupBox1.<P>.Height'
      'GroupBox1.dbgGroups.<P>.Columns.ColumnsIndex'
      'GroupBox1.dbgGroups.<P>.Columns.<ForAllItems>.Width'
      'GroupBox1.dbgGroups.<P>.Width'
      'Panel2.PageControl1.tsForm.GroupBox2.Panel1.<P>.Width'
      
        'Panel2.PageControl1.tsTab.GroupBox3.dbgRefer.<P>.Columns.Columns' +
        'Index'
      
        'Panel2.PageControl1.tsTab.GroupBox3.dbgRefer.<P>.Columns.<ForAll' +
        'Items>.Width')
  end
  object dsProcList: TpFIBDataSet [15]
    SelectSQL.Strings = (
      'select * from RCALC_PROC')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    Left = 648
    Top = 131
    object dsProcListID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsProcListPROC_NAME: TFIBStringField
      FieldName = 'PROC_NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsProcListNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dscProcList: TDataSource [16]
    DataSet = dsProcList
    Left = 676
    Top = 131
  end
  object dsTariffDates: TpFIBDataSet [17]
    SelectSQL.Strings = (
      'select rt.bdate, list(rt.tariff, '#39'; '#39') as tariffs'
      '  from rtariffs rt'
      '  where rt.service_id = :s_id'
      '    and rt.supplier_id = :supp_id'
      '  group by 1'
      '  order by 1 desc')
    AfterScroll = dsTariffDatesAfterScroll
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    Left = 520
    Top = 369
    object dsTariffDatesBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      DisplayWidth = 20
      FieldName = 'BDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object dsTariffDatesTARIFFS: TFIBMemoField
      DisplayLabel = #1058#1072#1088#1080#1092#1099
      FieldName = 'TARIFFS'
      BlobType = ftMemo
      Size = 60
    end
  end
  object dscTariffDates: TDataSource [18]
    DataSet = dsTariffDates
    Left = 548
    Top = 369
  end
  object trTariffs: TpFIBTransaction [19]
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 546
    Top = 493
  end
  object dsTariffM: TpFIBDataSet [20]
    SelectSQL.Strings = (
      'select rt.id, rt.tariff,'
      '    rt.createdate,'
      
        '    (select rname from user_getfullname(rt.createuserid)) as cre' +
        'ateuser,'
      '    rt.modifydate,'
      
        '    (select rname from user_getfullname(rt.modifyuserid)) as mod' +
        'ifyuser'
      'from rtariffs rt'
      'where rt.service_id = :s_id'
      'and rt.supplier_id = :supp_id'
      'and rt.bdate = :bdate'
      'order by rt.seq')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    Left = 520
    Top = 457
    object dsTariffMID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsTariffMTARIFF: TFIBBCDField
      DisplayLabel = #1058#1072#1088#1080#1092#1099' '#1079#1072' '#1077#1076'. '#1091#1089#1083#1091#1075#1080
      DisplayWidth = 20
      FieldName = 'TARIFF'
      Size = 2
      RoundByScale = True
    end
    object dsTariffMCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
    end
    object dsTariffMCREATEUSER: TFIBStringField
      DisplayLabel = #1050#1090#1086' '#1089#1086#1079#1076#1072#1083
      DisplayWidth = 20
      FieldName = 'CREATEUSER'
      Size = 150
      EmptyStrToNull = True
    end
    object dsTariffMMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'MODIFYDATE'
    end
    object dsTariffMMODIFYUSER: TFIBStringField
      DisplayLabel = #1050#1090#1086' '#1084#1077#1085#1103#1083
      DisplayWidth = 20
      FieldName = 'MODIFYUSER'
      Size = 150
      EmptyStrToNull = True
    end
  end
  object dscTariffM: TDataSource [21]
    DataSet = dsTariffM
    Left = 548
    Top = 457
  end
  object dsNormDates: TpFIBDataSet [22]
    SelectSQL.Strings = (
      'select rt.bdate, list(rt.norm, '#39'; '#39') as norms'
      '  from rnorms rt'
      '  where rt.service_id = :s_id'
      '    and rt.supplier_id = :supp_id'
      '  group by 1'
      '  order by 1 desc')
    AfterScroll = dsNormDatesAfterScroll
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    Left = 664
    Top = 369
    object dsNormDatesBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      DisplayWidth = 20
      FieldName = 'BDATE'
    end
    object dsNormDatesNORMS: TFIBMemoField
      DisplayLabel = #1053#1086#1088#1084#1099
      FieldName = 'NORMS'
      BlobType = ftMemo
      Size = 60
    end
  end
  object dscNormDates: TDataSource [23]
    DataSet = dsNormDates
    Left = 694
    Top = 369
  end
  object dscNormM: TDataSource [24]
    DataSet = dsNormM
    Left = 694
    Top = 457
  end
  object dsNormM: TpFIBDataSet [25]
    SelectSQL.Strings = (
      'select rt.id, rt.norm,'
      '    rt.createdate,'
      
        '    (select rname from user_getfullname(rt.createuserid)) as cre' +
        'ateuser,'
      '    rt.modifydate,'
      
        '    (select rname from user_getfullname(rt.modifyuserid)) as mod' +
        'ifyuser'
      'from rnorms rt'
      'where rt.service_id = :s_id'
      'and rt.supplier_id = :supp_id'
      'and rt.bdate = :bdate'
      'order by rt.seq')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    Left = 664
    Top = 457
    object dsNormMID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsNormMCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
    end
    object dsNormMCREATEUSER: TFIBStringField
      DisplayLabel = #1050#1090#1086' '#1089#1086#1079#1076#1072#1083
      DisplayWidth = 20
      FieldName = 'CREATEUSER'
      Size = 150
      EmptyStrToNull = True
    end
    object dsNormMMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'MODIFYDATE'
    end
    object dsNormMMODIFYUSER: TFIBStringField
      DisplayLabel = #1050#1090#1086' '#1084#1077#1085#1103#1083
      DisplayWidth = 20
      FieldName = 'MODIFYUSER'
      Size = 150
      EmptyStrToNull = True
    end
    object dsNormMNORM: TFIBFloatField
      DisplayLabel = #1053#1086#1088#1084#1072#1090#1080#1074#1099
      FieldName = 'NORM'
    end
  end
  object pmTariffs: TPopupMenu [26]
    Images = MAIN.ImageList
    Left = 184
    Top = 352
    object N1: TMenuItem
      Action = aInsertTariff
    end
    object N2: TMenuItem
      Action = aEditTariff
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Action = aDelTariff
    end
  end
  object pmNorms: TPopupMenu [27]
    Images = MAIN.ImageList
    Left = 408
    Top = 396
    object MenuItem1: TMenuItem
      Action = aInsertNorm
    end
    object MenuItem2: TMenuItem
      Action = aEditNorm
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object MenuItem3: TMenuItem
      Action = aDelNorm
    end
  end
  object qDelTariff: TpFIBQuery [28]
    Transaction = trTariffs
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'delete'
      'from rtariffs rt'
      'where rt.service_id = :service_id'
      'and rt.supplier_id = :supplier_id'
      'and rt.bdate = :bdate')
    Left = 520
    Top = 493
    qoStartTransaction = True
  end
  object qDelNorm: TpFIBQuery [29]
    Transaction = trNorms
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'delete'
      'from rnorms rt'
      'where rt.service_id = :service_id'
      'and rt.supplier_id = :supplier_id'
      'and rt.bdate = :bdate')
    Left = 666
    Top = 493
    qoStartTransaction = True
  end
  object trNorms: TpFIBTransaction [30]
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 694
    Top = 493
  end
  object dsStoki: TpFIBDataSet [31]
    UpdateSQL.Strings = (
      'UPDATE SERV_TO_SERV'
      'SET '
      '    SRV_DST = :SRV_DST,'
      '    SUPPLIER_ID_SRC = :SUPPLIER_ID_SRC,'
      '    SUPPLIER_ID_DST = :SUPPLIER_ID_DST,'
      '    REDUCT_KOEF = :REDUCT_KOEF'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SERV_TO_SERV'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SERV_TO_SERV('
      '    SRV_SRC,'
      '    SRV_DST,'
      '    SUPPLIER_ID_SRC,'
      '    SUPPLIER_ID_DST,'
      '    REDUCT_KOEF'
      ')'
      'VALUES('
      '    :SRV_SRC,'
      '    :SRV_DST,'
      '    :SUPPLIER_ID_SRC,'
      '    :SUPPLIER_ID_DST,'
      '    :REDUCT_KOEF'
      ')')
    RefreshSQL.Strings = (
      'select ss.*,'
      '  s.name as dst,'
      '  sup1.name as supp_src,'
      '  sup2.name as supp_dst'
      'from serv_to_serv ss'
      '  join services s on s.id = ss.srv_dst'
      '  join v_supplier sup1 on sup1.id = ss.supplier_id_src'
      '  join v_supplier sup2 on sup2.id = ss.supplier_id_dst'
      'where ss.srv_src = :ID'
      '  and SS.ID = :OLD_ID ')
    SelectSQL.Strings = (
      'select ss.*,'
      '  s.name as dst,'
      '  sup1.name as supp_src,'
      '  sup2.name as supp_dst'
      'from serv_to_serv ss'
      '  join services s on s.id = ss.srv_dst'
      '  join v_supplier sup1 on sup1.id = ss.supplier_id_src'
      '  join v_supplier sup2 on sup2.id = ss.supplier_id_dst'
      'where ss.srv_src = :service_id')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    DataSource = dscRefer
    Left = 522
    Top = 309
    object dsStokiID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsStokiSRV_SRC: TFIBIntegerField
      FieldName = 'SRV_SRC'
      Visible = False
    end
    object dsStokiSRV_DST: TFIBIntegerField
      FieldName = 'SRV_DST'
      Visible = False
    end
    object dsStokiSUPPLIER_ID_SRC: TFIBIntegerField
      FieldName = 'SUPPLIER_ID_SRC'
      Visible = False
    end
    object dsStokiSUPPLIER_ID_DST: TFIBIntegerField
      FieldName = 'SUPPLIER_ID_DST'
      Visible = False
    end
    object dsStokiDST: TFIBStringField
      DisplayLabel = #1057#1090#1086#1082#1086#1074#1072#1103' '#1091#1089#1083#1091#1075#1072
      FieldName = 'DST'
      Size = 120
      EmptyStrToNull = True
    end
    object dsStokiSUPP_SRC: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082'-'#1080#1089#1090#1086#1095#1085#1080#1082
      FieldName = 'SUPP_SRC'
      Size = 60
      EmptyStrToNull = True
    end
    object dsStokiSUPP_DST: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082'-'#1089#1090#1086#1082
      FieldName = 'SUPP_DST'
      Size = 60
      EmptyStrToNull = True
    end
    object dsStokiREDUCT_KOEF: TFIBFloatField
      DisplayLabel = #1050#1086#1101#1092'. '#1091#1089#1091#1096#1082#1080
      FieldName = 'REDUCT_KOEF'
    end
  end
  object dscStoki: TDataSource [32]
    DataSet = dsStoki
    Left = 550
    Top = 309
  end
  object dsGroups: TpFIBDataSet [33]
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SERVICES'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'select s.id, s.g_code, s.g_subcode,'
      '       s.name, s.short_name'
      '  from services s'
      '  where s.group_id = 0'
      '    and S.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select s.id, s.g_code, s.g_subcode, '
      '       s.name, s.short_name'
      '  from services s'
      '  where s.group_id = 0')
    AfterEdit = dsReferAfterEdit
    AfterInsert = dsReferAfterInsert
    AfterOpen = dsReferAfterRefresh
    AfterScroll = dsGroupsAfterScroll
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    Left = 484
    Top = 78
    oFetchAll = True
    object dsGroupsID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsGroupsG_CODE: TFIBIntegerField
      FieldName = 'G_CODE'
    end
    object dsGroupsG_SUBCODE: TFIBIntegerField
      FieldName = 'G_SUBCODE'
    end
    object dsGroupsNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1075#1088#1091#1087#1087#1099
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsGroupsSHORT_NAME: TFIBStringField
      DisplayLabel = #1050#1086#1088#1086#1090#1082#1086#1077' '#1085#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'SHORT_NAME'
      Size = 16
      EmptyStrToNull = True
    end
  end
  object dscGroups: TDataSource [34]
    DataSet = dsGroups
    Left = 514
    Top = 78
  end
  object dscServiceTraits: TDataSource [35]
    DataSet = dsServiceTraits
    Left = 550
    Top = 337
  end
  object dsServiceTraits: TpFIBDataSet [36]
    UpdateSQL.Strings = (
      'UPDATE SERVICES_TO_TRAITS'
      'SET '
      '    BDATE = :BDATE,'
      '    EDATE = :EDATE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SERVICES_TO_TRAITS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SERVICES_TO_TRAITS('
      '    TRAIT_ID,'
      '    SERVICE_ID,'
      '    BDATE,'
      '    EDATE'
      ')'
      'VALUES('
      '    :TRAIT_ID,'
      '    :SERVICE_ID,'
      '    :BDATE,'
      '    :EDATE'
      ')')
    RefreshSQL.Strings = (
      
        'select stt.id, stt.trait_id, stt.service_id, srt.traitname, stt.' +
        'bdate, stt.edate'
      'from services_to_traits stt'
      '  join service_traits srt on stt.trait_id = srt.id'
      ' where(  stt.service_id = :service_id'
      '     ) and (     STT.ID = :OLD_ID'
      '     )'
      '     ')
    SelectSQL.Strings = (
      
        'select stt.id, stt.trait_id, stt.service_id, srt.traitname, stt.' +
        'bdate, stt.edate'
      'from services_to_traits stt'
      '  join service_traits srt on stt.trait_id = srt.id'
      ' where stt.service_id = :service_id ')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    DataSource = dscRefer
    Left = 522
    Top = 337
    object dsServiceTraitsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsServiceTraitsTRAIT_ID: TFIBIntegerField
      FieldName = 'TRAIT_ID'
    end
    object dsServiceTraitsSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object dsServiceTraitsTRAITNAME: TFIBStringField
      DisplayLabel = #1055#1088#1080#1079#1085#1072#1082
      FieldName = 'TRAITNAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsServiceTraitsBDATE: TFIBDateField
      DisplayLabel = #1053#1072#1095#1072#1083#1086
      FieldName = 'BDATE'
    end
    object dsServiceTraitsEDATE: TFIBDateField
      DisplayLabel = #1054#1082#1086#1085#1095#1072#1085#1080#1077
      FieldName = 'EDATE'
    end
  end
  object ds_GroupTraits: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE SERVICES_TO_TRAITS'
      'SET '
      '    BDATE = :BDATE,'
      '    EDATE = :EDATE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SERVICES_TO_TRAITS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SERVICES_TO_TRAITS('
      '    TRAIT_ID,'
      '    SERVICE_ID,'
      '    BDATE,'
      '    EDATE'
      ')'
      'VALUES('
      '    :TRAIT_ID,'
      '    :SERVICE_ID,'
      '    :BDATE,'
      '    :EDATE'
      ')')
    RefreshSQL.Strings = (
      
        'select stt.id, stt.trait_id, stt.service_id, srt.traitname, stt.' +
        'bdate, stt.edate'
      'from services_to_traits stt'
      '  join service_traits srt on stt.trait_id = srt.id'
      ' where(  stt.service_id = :service_id'
      '     ) and (     STT.ID = :OLD_ID'
      '     )'
      '     ')
    SelectSQL.Strings = (
      
        'select stt.id, stt.trait_id, stt.service_id, srt.traitname, stt.' +
        'bdate, stt.edate'
      'from services_to_traits stt'
      '  join service_traits srt on stt.trait_id = srt.id'
      ' where stt.service_id = :id ')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    DataSource = dscGroups
    Left = 778
    Top = 125
    WaitEndMasterScroll = True
    dcForceOpen = True
    object ds_GroupTraitsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_GroupTraitsTRAIT_ID: TFIBIntegerField
      FieldName = 'TRAIT_ID'
    end
    object ds_GroupTraitsSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object ds_GroupTraitsTRAITNAME: TFIBStringField
      DisplayLabel = #1055#1088#1080#1079#1085#1072#1082
      DisplayWidth = 20
      FieldName = 'TRAITNAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_GroupTraitsBDATE: TFIBDateField
      DisplayLabel = #1053#1072#1095#1072#1083#1086
      FieldName = 'BDATE'
    end
    object ds_GroupTraitsEDATE: TFIBDateField
      DisplayLabel = #1054#1082#1086#1085#1095#1072#1085#1080#1077
      DisplayWidth = 12
      FieldName = 'EDATE'
    end
  end
  object dsc_GroupTraits: TDataSource
    DataSet = ds_GroupTraits
    Left = 806
    Top = 125
  end
end
